home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1997 / MacHack 1997.toast / Hacks / Hacks ’96 / PredatorPrey / ErrorWindow.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-06-22  |  3.0 KB  |  141 lines  |  [TEXT/KAHL]
  1. /* ErrorWindow.c */
  2. /* Created 940328 7:13 by AppMaker */
  3.  
  4. #include <Types.h>
  5. #include <Quickdraw.h>
  6. #include <Controls.h>
  7. #include <Dialogs.h>
  8. #include <Events.h>
  9. #include <Lists.h>
  10. #include <Menus.h>
  11. #include <Resources.h>
  12. #include <TextEdit.h>
  13. #include <ToolUtils.h>
  14. #include "ResourceDefs.h"
  15. #include "Globals.h"
  16. #include "Miscellany.h"
  17. #include "Scrolling.h"
  18. #include "WindowAids.h"
  19. #include "PredatorPreyData.h"
  20. #include "ErrorWindow.h"
  21.  
  22. #define Scroll1            1 
  23. #define Scroll2            2 
  24. #define Field3            3 
  25.  
  26.  
  27. /*----------*/
  28. WindowPtr OpenErrorWindow    (Str255        fName,
  29.                          short        vRefNum,
  30.                          short        fRefNum)
  31. {
  32.     WindowPtr        newWindow;
  33.     Rect            bounds;
  34.  
  35.     newWindow = GetWindow (ErrorWindowID);
  36.     if (fName [0] != 0) {
  37.         SetWTitle (newWindow, fName);
  38.     }
  39.     SetPort (newWindow);
  40.     SetNewInfo (newWindow);
  41.     cur->vScroll = GetNewControl (131, newWindow);
  42.     cur->hScroll = GetNewControl (132, newWindow);
  43.     cur->fileNum    = fRefNum;
  44.     cur->volNum        = vRefNum;
  45.     cur->dirty        = false;
  46.     cur->filename    = NewString (fName);
  47.     cur->windowKind = WErrorWindow;
  48.     ((WindowPeek) curWindow)->windowKind = userKind + WErrorWindow;
  49.     cur->witlHandle = GetResource ('Witl', ErrorWindowID);    /* Window itemlist resource */
  50.     cur->wictHandle = GetResource ('Wict', ErrorWindowID);    /* Window item color table resource */
  51.  
  52.     SetWFont (Field3);
  53.     GetWRect (Field3, &bounds);                            /*    WindowAids.c    */
  54.     cur->Field3Handle = TENew (&bounds, &bounds);
  55.     TESetJust (textJust, cur->Field3Handle);
  56.     TEAutoView (true, cur->Field3Handle);
  57.     
  58.     cur->text = cur->Field3Handle;
  59.     return(newWindow);
  60.  
  61. } /*OpenErrorWindow*/
  62.  
  63. /*----------*/
  64. void CloseErrorWindow    (void)
  65. {
  66.     TEDispose (cur->Field3Handle);
  67.     
  68.     DisposHandle ((Handle) cur->filename);
  69.     DiscardInfo (curWindow);
  70. } /*CloseErrorWindow*/
  71.  
  72. /*----------*/
  73. void ControlErrorWindow  (ControlHandle        whichControl,
  74.                          short                whichPart,
  75.                          Point                where)
  76. {
  77.     Rect            bounds;
  78.  
  79.     
  80. } /*ControlErrorWindow*/
  81.  
  82. /*----------*/
  83. void MouseInErrorWindow    (Point        where,
  84.                          short        modifiers)
  85. {
  86.     Rect            bounds;
  87.  
  88.     if (PtInRect (where, &(**(cur->Field3Handle)).viewRect)) {
  89.         if (cur->text != nil) {
  90.             TEDeactivate (cur->text);
  91.         }
  92.         cur->text = cur->Field3Handle;
  93.         TEActivate (cur->text);
  94.         TEClick (where, false, cur->text);
  95.     }
  96.  
  97. } /*MouseInErrorWindow*/
  98.  
  99. /*----------*/
  100. void TypeInErrorWindow   (char        ch)
  101. {
  102.     if (cur->text == nil) {
  103.         SysBeep (1);
  104.     } else {
  105.         TEKey (ch, cur->text);
  106.         cur->dirty = true;
  107.     }
  108. } /*TypeInErrorWindow*/
  109.  
  110. /*----------*/
  111. void UpdateErrorWindow (void)
  112. {
  113.     Rect            bounds;
  114.  
  115.     TEUpdate (&qd.thePort->portRect, cur->Field3Handle);
  116.     
  117.     DrawClippedGrow (-15, -15);
  118. } /*UpdateErrorWindow*/
  119.  
  120. /*----------*/
  121. void ActivateErrorWindow    (Boolean    activate)
  122. {
  123.     
  124.     DrawClippedGrow (-15, -15);
  125. } /*ActivateErrorWindow*/
  126.  
  127. /*----------*/
  128. void ResizeErrorWindow    (void)
  129. {
  130.     /* application-specific code to resize items in window */
  131. } /*ResizeErrorWindow*/
  132.  
  133. /*----------*/
  134. pascal void ScrollErrorWindow    (short        newValue,
  135.                                   short        oldValue)
  136. {
  137.     /* application-specific code to scroll window */
  138. } /*ScrollErrorWindow*/
  139.  
  140. /* ErrorWindow */
  141.